home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / BOSTON.CMD < prev    next >
OS/2 REXX Batch file  |  1988-01-05  |  3KB  |  184 lines
  1. ASSI S7    "    "
  2. ASSI S0    " "
  3. ASSI S1    "Boston, MA  [617]"
  4. BEGIN:
  5. CLEA
  6. LOCA 4,0
  7. MESS"                  ╔══╡  BOSTON BBS NUMBERS ╞══╗"
  8. MESS"                  ║                  ║"
  9. MESS"                  ║     A - BYTEnet listing      ║"
  10. MESS"                  ║     B - Fido / PC Week      ║"
  11. MESS"                  ║     C - Boston Computer Soc. ║"
  12. MESS"                  ║     D - BCS Net Host      ║"
  13. MESS"                  ║     E - BCS Telecom      ║"
  14. MESS"                  ║     F - Byte Magazine      ║"
  15. MESS"                  ║     G - BCS IBM          ║"
  16. MESS"                  ║     H - Unicorn's Inn      ║"
  17. MESS"                  ║     M - Manual Dial      ║"
  18. MESS"                  ║     Q - Return to MAIN menu  ║"
  19. MESS"                  ║                  ║"
  20. MESS"                  ╠═══════════════════════════╣"
  21. MESS"                  ║    ENTER YOUR CHOICES:      ║"
  22. MESS"                  ║                  ║"
  23. MESS"                  ╚═══════════════════════════╝"
  24. LOCA 19,31
  25. GET S0
  26. TOP:
  27. FIND S0    "A"
  28. IF FOUN
  29. ASSI S6"BYTEnet"
  30. ASSI S8"8619774"
  31. GOSU REDIALER
  32. ELSE
  33. ENDI
  34. FIND S0    "B"
  35. IF FOUN
  36. ASSI S6"Fido / PC Week"
  37. ASSI S8"5361917"
  38. GOSU REDIALER
  39. ELSE
  40. ENDI
  41. FIND S0    "C"
  42. IF FOUN
  43. ASSI S6"Boston Computer    Society"
  44. ASSI S8"2373750"
  45. GOSU REDIALER
  46. ELSE
  47. ENDI
  48. FIND S0    "D"
  49. IF FOUN
  50. ASSI S6"BCS Net    Host"
  51. ASSI S8"2373750"
  52. GOSU REDIALER
  53. ELSE
  54. ENDI
  55. FIND S0    "E"
  56. IF FOUN
  57. ASSI S6"BCS Telecom"
  58. ASSI S8"7869788"
  59. GOSU REDIALER
  60. ELSE
  61. ENDI
  62. FIND S0    "F"
  63. IF FOUN
  64. ASSI S6"Byte Magazine"
  65. ASSI S8"8619764"
  66. GOSU REDIALER
  67. ELSE
  68. ENDI
  69. FIND S0    "G"
  70. IF FOUN
  71. ASSI S6"BCS IBM"
  72. ASSI S8"3325584"
  73. GOSU REDIALER
  74. ELSE
  75. ENDI
  76. FIND S0    "H"
  77. IF FOUN
  78. ASSI S6"Unicorn's Inn"
  79. ASSI S8"4793432"
  80. GOSU REDIALER
  81. ELSE
  82. ENDI
  83. FIND S7    "MORE"
  84. IF FOUN
  85. ASSI S7"    "
  86. GOTO TOP
  87. ELSE
  88. ENDI
  89. FIND S0    "M"
  90. IF FOUN
  91. CLEA
  92. LOCA 5,20
  93. MESS"NUMBER TO DIAL:"
  94. LOCA 5,36
  95. ASSI S6"MANUAL DIAL"
  96. GET S8
  97. GOSU REDIALER
  98. ELSE
  99. ENDI
  100. FIND S0    "Q"
  101. IF FOUN
  102. CLEA
  103. TRAN"!@!"
  104. WAIT"@"
  105. TRAN"D!"
  106. WAIT"@"
  107. CLEA
  108. LOCA 1,0
  109. PAUS 1
  110. EXEC"SELCITY.CMD"
  111. ELSE
  112. ENDI
  113. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  114. MESSAGE    "RETURNING TO MAIN MENU"
  115. ALAR
  116. ASSI S0    "Q"
  117. GOTO TOP
  118. REDIALER:
  119. CLEA
  120. ISFI S6
  121. IF NOT SUCC
  122. LOCA 5,    35
  123. MESSAGE    "DIALING"
  124. MESSAGE    " "
  125. MESSAGE    S6
  126. MESS S8
  127. TRAN"I!"
  128. PAUS 1
  129. TRAN"ATZ!"
  130. WAITFOR    "OK"
  131. TRAN"^E!"
  132. WAITFOR    "READY"
  133. TRAN"D"
  134. TRAN S8
  135. TRAN"!"
  136. RGET S9
  137. RGET S9    80 40
  138. RGET S9    40 40
  139. RGET S9    40 40
  140. GOTMESS:
  141. FIND S9    "BUSY"
  142. IF FOUN
  143. MESS S6
  144. MESS S8
  145. MESS"BUSY; GOING TO NEXT NUMBER"
  146. MESS"******************************************************************"
  147. ASSI S7"MORE"
  148. GOTO RTRN
  149. ENDI
  150. FIND S9"ANSWER TONE"
  151. IF FOUN
  152. SET PARI NONE
  153. SET DATA 8
  154. CLEA
  155. MESSAGE    "CONNECTED TO"
  156. MESS S8
  157. MESS S6
  158. MESS S1
  159. ALAR
  160. EXIT
  161. ELSE
  162. FIND S9    "RINGING"
  163. IF FOUN
  164. RGET S9
  165. FIND S9    "RINGING"
  166. IF FOUN
  167. LOG OPEN S6
  168. MESS"NO    ANSWER    - STILL    RINGING"
  169. MESS S8
  170. MESS S6
  171. MESS S1
  172. LOG CLOSE
  173. TRAN"^C^D^C"
  174. MESS"*******************************************************************"
  175. GOTO RTRN
  176. ELSE
  177. GOTO GOTMESS
  178. ENDI
  179. ENDI
  180. ENDI
  181. ENDI
  182. RTRN:
  183. RETURN
  184.